home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Inside Action / Total Distortion Big Demo / zRad.Dxr / 00035.txt < prev    next >
Encoding:
Text File  |  1995-06-05  |  1.9 KB  |  83 lines
  1.  
  2. on oldinit
  3.   global radstate, RadPath
  4.   set radpath = "@:zRadAIFF:"
  5.   if radstate <> 0 then nothing
  6.   else set radstate = "1,1,1,1,1,1"
  7. end
  8.  
  9. on PlayRad
  10.   global radstate
  11.   set chan = item 1 of radstate
  12.   set show = item chan+1 of radstate
  13.   do "Prog"&chan&&show
  14. end
  15.  
  16. on seekUp
  17.   global radstate
  18.   -- put radstate&" = Start Seek"
  19.   set chan = value(item 1 of radstate)
  20.   set show = value(item chan+1 of radstate)
  21.   if show = 5 then put "1" into item chan+1 of radstate
  22.   else put string(show+1) into item chan+1 of radstate
  23.   if chan = 5 then set chan = 1
  24.   else set chan = chan+1
  25.   put string(chan) into item 1 of radstate
  26.   go marker(1)
  27.   -- put radstate&" = End Seek"
  28. end
  29.  
  30. on NextShow
  31.   global radstate
  32.   set chan = value(item 1 of radstate)
  33.   set show = value(item chan+1 of radstate)
  34.   if show = 3 then put "1" into item chan+1 of radstate
  35.   else put string(show+1) into item chan+1 of radstate
  36.   playrad
  37. end
  38.  
  39. on MA x
  40.   global RadPath
  41.   sound playfile 2, RadPath&x
  42. end
  43.  
  44. on Prog1 x
  45.   if x = 1 then MA "DEVLPNTS.AIF"
  46.   else if x = 2 then MA "ETERNITY.AIF"
  47.   else if x = 3 then MA "BPProtst.AIF"
  48.   else if x = 4 then MA "SURFRPRT.AIF"
  49.   else if x = 5 then MA "HDRKWOMN.AIF"
  50. end
  51.  
  52. on Prog2 x
  53.   if x = 1 then MA "HOOKEDON.AIF"
  54.   else if x = 2 then MA "BPdecdmn.AIF"
  55.   else if x = 3 then MA "EDHngHed.AIF"
  56.   else if x = 4 then MA "TATTOO.AIF"
  57.   else if x = 5 then MA "URDed.AIF"
  58. end
  59.  
  60. on Prog3 x
  61.   if x = 1 then MA "SugarPop.AIF"
  62.   else if x = 2 then MA "GNARACRS.AIF"
  63.   else if x = 3 then MA "GGPsyBud.AIF"
  64.   else if x = 4 then MA "DONTCARE.AIF"
  65.   else if x = 5 then MA "TOMCHU2.AIF"
  66. end
  67.  
  68. on Prog4 x
  69.   if x = 1 then MA "SMTHMOVE.AIF"
  70.   else if x = 2 then MA "MJTwelve.AIF"
  71.   else if x = 3 then MA "ROSEBUD.AIF"
  72.   else if x = 4 then MA "SHAMECO.AIF"
  73.   else if x = 5 then MA "MALLTALK.AIF"
  74. end
  75.  
  76. on Prog5 x
  77.   if x = 1 then MA "JFLUVMYS.AIF"
  78.   else if x = 2 then MA "JAILHSER.AIF"
  79.   else if x = 3 then MA "EDCDEVIL.AIF"
  80.   else if x = 4 then MA "TOMCHU.AIF"
  81.   else if x = 5 then MA "DISTTEST.AIF"
  82. end
  83.